home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / rjkpro_1 / shadecluster3oo.amos / shadecluster3oo.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1997-04-02  |  1.8 KB  |  68 lines
  1. '----------------------------------------------------
  2. '                 shade cluster v3.o 
  3. '----------------------------------------------------
  4. '               keller@vip.cybercity.dk
  5. '                     rune keller  
  6. '                 sporuplundsvej 105 
  7. '                   dk-8472 sporup 
  8. '----------------------------------------------------
  9. '            finished 1o/o5/1995 18:48:48
  10. '----------------------------------------------------  
  11.  
  12. _SHADECLUSTER[4]
  13.  
  14. Procedure _SHADECLUSTER[_CLUSTERS]
  15.    
  16.    Screen Open 0,320,256,32,Lowres
  17.    Flash Off 
  18.    Curs Off 
  19.    Hide 
  20.    Cls 0
  21.    
  22.    Palette 0,$300,$500,$700,$900,$B00,$D00,$F00,$F10,$F30,$F40,$F60,$F70,$F90,$FA0,$FC0,$FE0,$FF0,$FF2,$FF3,$FF5,$FF6,$FF8,$FF9,$FFB,$FFC,$FFE,$FFF,$CCC,$AAA,$666
  23.    
  24.    Dim X(_CLUSTERS-1)
  25.    Dim Y(_CLUSTERS-1)
  26.    
  27.    Repeat 
  28.       
  29.       For _CLUSTER=0 To _CLUSTERS-1
  30.          
  31.          I=Rnd(3)
  32.          
  33.          If I=0
  34.             Inc X(_CLUSTER)
  35.          Else If I=1
  36.             Dec X(_CLUSTER)
  37.          Else If I=2
  38.             Inc Y(_CLUSTER)
  39.          Else If I=3
  40.             Dec Y(_CLUSTER)
  41.          End If 
  42.          
  43.          If X(_CLUSTER)>160
  44.             X(_CLUSTER)=X(_CLUSTER)-320
  45.          Else If X(_CLUSTER)<-160
  46.             X(_CLUSTER)=320+X(_CLUSTER)
  47.          End If 
  48.          
  49.          If Y(_CLUSTER)>128
  50.             Y(_CLUSTER)=Y(_CLUSTER)-256
  51.          Else If Y(_CLUSTER)<-128
  52.             Y(_CLUSTER)=256+Y(_CLUSTER)
  53.          End If 
  54.          
  55.          'if you've got the excellent amcaf extension,
  56.          'use 'shade bob up' instead of 'plot'... 
  57.          'Shade Bob Up 0,160+X(_CLUSTER),128+Y(_CLUSTER),1
  58.          
  59.          Plot 160+X(_CLUSTER),128+Y(_CLUSTER),Point(160+X(_CLUSTER),128+Y(_CLUSTER))+1
  60.          
  61.       Next 
  62.       
  63.    Until Mouse Key<>0
  64.    
  65.    Fade 1
  66.    Wait 15
  67.    
  68. End Proc